home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / CPTSL.z / CPTSL
Text File  |  1996-03-14  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCPPPPTTTTSSSSLLLL((((3333FFFF))))                                                            CCCCPPPPTTTTSSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CPTSL   - CPTSL given a positive definite tridiagonal matrix and a right
  10.      hand side will find the solution.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE CPTSL(N,D,E,B)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      NNNN INTEGER
  20.         is the order of the tridiagonal matrix.
  21.  
  22.      DDDD COMPLEX(N)
  23.         is the diagonal of the tridiagonal matrix.
  24.         On output D is destroyed.
  25.  
  26.      EEEE COMPLEX(N)
  27.         is the offdiagonal of the tridiagonal matrix.
  28.         E(1) through E(N-1) should contain the
  29.         offdiagonal.
  30.  
  31.      BBBB COMPLEX(N)
  32.         is the right hand side vector.  On Return
  33.  
  34.      BBBB contains the solution. LINPACK.  This version dated 08/14/78 .  Jack
  35.      Dongarra, Argonne National Laboratory.  No externals Fortran CONJG,MOD
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.